home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 38 / Amiga Format CD38 (1999-03-15)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-04].iso / -seriously_amiga- / programming / other / cyberxxxsrc / misc / libraryver.mod < prev    next >
Text File  |  1999-02-08  |  610b  |  22 lines
  1. MODULE  LibraryVer;
  2.  
  3. (* $StackChk- $OvflChk- $RangeChk- $CaseChk- $ReturnChk- $NilChk- $TypeChk- $OddChk- $ClearVars- *)
  4.  
  5. IMPORT  e:=Exec;
  6.  
  7. (* /// ---------------------- "PROCEDURE CheckVersion()" ----------------------- *)
  8. PROCEDURE CheckVersion * (lib: e.LibraryPtr;
  9.                           ver: LONGINT;
  10.                           rev: LONGINT): BOOLEAN;
  11. BEGIN
  12.   IF lib#NIL THEN
  13.     RETURN (lib.version>ver) OR ((lib.version=ver) & (lib.revision>=rev));
  14.   ELSE
  15.     RETURN FALSE;
  16.   END;
  17. END CheckVersion;
  18. (* \\\ ------------------------------------------------------------------------- *)
  19.  
  20. END LibraryVer.
  21.  
  22.